home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / MAL ©P.f.Howden 1⁄1⁄89 / 2DPLOT FUN next >
Text File  |  1989-05-24  |  2KB  |  32 lines
  1. 1 CLEAR:CLS:PRINT "2DPLOTFN-plots a 2-Dimensional (multi-value) Rectangular or Polar function":PRINT" eg. on line 100 type: 100 F=X^2+Y^2-4    or  100 F=R-1-COS(T)"
  2. 2 W=70:N=10:W=W-1:DIM M$(4),Y(W):G=-.0000001:INPUT "MENU: Rectangular/Polar (1/0)=";Z:REM G avoids SGN(F)=0
  3. 3 FOR J=0 TO INT(W/5):M$(0)=M$(0)+"v----":NEXT J:PRINT"Due to workload, Plotting takes a little time...."
  4. 4 FOR J=0 TO W:M$(1)=M$(1)+"-":NEXT J:PRINT"W=Screen TAB width on line 2. Zero is shown as 'O' if it occurs on a plot line"
  5. 5 INPUT "STARTING X=";X:INPUT "X INCREMENT (L)=";L
  6. 6 PRINT "Y0-AXIS ZERO(0-";W;:INPUT ")=";Y0:Y(0)=Y0
  7. 7 INPUT "Y MULTIPLIER (M)=";M:INPUT"Y OFFSET (A)=";A:CLS:L0=1/(2*M)
  8. 8 PRINT"      Y,v----v=";5/M;";  OFFSET=";A:PRINT"Xo=";X;";   X INC.(10 SPACES vertical)=";10*L:REM ->PRINTER
  9. 9 GOSUB 90
  10. 22 IF K=0 THEN K=1:M$(2)=M$(0):GOTO 25
  11. 23 M$(2)=M$(1)
  12. 25 IF (L>0 AND X>=0 AND K3=0) OR (L<0 AND X<=0 AND K3=0) THEN K3=1:K4=1
  13. 27 V$="+"
  14. 28 FOR J=0 TO N0:IF J=0 AND N=10 THEN N=0:GOTO 50
  15. 36 IF J=0 THEN V$="I":GOTO 50
  16. 37 V$="*"
  17. 50 IF K4=1 THEN V$="o"
  18. 52 M$(3)=MID$(M$(2),1,Y(J)):M$(4)=MID$(M$(2),Y(J)+2,W-Y(J)):M$(2)=M$(3)+V$+M$(4):NEXT J
  19. 53 PRINT M$(2):K4=0:REM->PRINTER
  20. 55 X=X+L:N=N+1:GOTO 9
  21. 90 N0=0:Y=-(A+Y0+.5)/M:L1=0:S0=SGN(F+G)
  22. 95 IF Z=1 THEN 100
  23. 96 R=SQR(X*X+Y*Y):U=SGN(X):V=SGN(Y)
  24. 97 T=(V*(1+U)*(V*(2-U)-1)-U)*1.5708+U*U*(ATN(Y/(X+(1-U*U)))+1.5708)
  25. 100 F=X^2/25+Y^2/100-1
  26. 110 IF Y>(W+.5-A-Y0)/M THEN RETURN
  27. 112 IF L1=0 THEN L1=1:S0=SGN(F+G):Y=Y+L0:GOTO 95
  28. 114 S=SGN(F+G):IF S*S0>0 THEN Y=Y+L0:S=S0:GOTO 95
  29. 116 Y(N0+1)=INT(Y0+M*(Y-L0/2)+A+.5):N0=N0+1:S0=S:GOTO 95
  30.                                MACINTOSH LISTING
  31.     
  32.